home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
United Public Domain Gold 2
/
United Public Domain Gold 2.iso
/
utilities
/
pu083.dms
/
pu083.adf
/
Morse Code
/
CWID2
< prev
next >
Wrap
Text File
|
1989-03-19
|
1KB
|
24 lines
'10 MINUTE CW ID AUDIO PROGRAM. 10/86. KMW. PTL.
CLEAR
P=800 ' PITCH
V=255 ' VOLUME
DOT=.85:DASH=2.55
GOSUB CWID
BEGIN:
ON TIMER(500) GOSUB CWID:TIMER ON:SLEEP:GOTO BEGIN
STOP
CWID:
SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DASH,0,0 'I
SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,40,0,0 'D
SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DASH,0,0 'D
SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DASH,0,0:SOUND P,DASH,0,0'E
SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DASH,V,0:SOUND P,DASH,0,0 'W
SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DASH,0,0 ' B
SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DASH,V,0:SOUND P,DASH,0,0 ' 3
SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DASH,V,0:SOUND P,DASH,0,0 ' K
SOUND P,DOT,V,0:SOUND P,DOT,0,0:SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0:SOUND P,DASH,0,0 ' R
SOUND P,DASH,V,0:SOUND P,DOT,0,0:SOUND P,DOT,V,0
GOTO BEGIN
END